home *** CD-ROM | disk | FTP | other *** search
/ Netware Super Library / Netware Super Library.iso / editors / aurora / atrn.a < prev    next >
Text File  |  1994-02-01  |  5KB  |  108 lines
  1.  
  2. //┌────────────────────────────────────────────────────────────────────┐
  3. //│ The Aurora Editor v1.20  - Text Translation table definitions      │
  4. //│                                                                    │
  5. //│ Please keep a backup copy of this file.                            │
  6. //│                                                                    │
  7. //│ For a description of these text translation definitions and how    │
  8. //│ to change them, select the "Key/Mouse/Trans Config" item from the  │
  9. //│ "Help" pull-down menu. Then select "Text Translation" from the     │
  10. //│ submenu.                                                           │
  11. //│                                                                    │
  12. //│ To change a translation table definition, simply locate the        │
  13. //│ desired word and it's replacement and change them in the table.    │
  14. //│ Be sure to enclose both the word and it's replacement in double    │
  15. //│ quotes. Table entries must be separated from each other by commas. │
  16. //│                                                                    │
  17. //│ If you have made any changes, save this file and select "Restore   │
  18. //│ Settings" from the "Set" pulldown menu. Exit and re-enter the      │
  19. //│ editor for your changes to take effect.                            │
  20. //│                                                                    │
  21. //└────────────────────────────────────────────────────────────────────┘
  22.  
  23. // NOTE: The default text translations and macros listed here are
  24. // only examples and suggestions. Replace them with your own.
  25.  
  26.  
  27. objnew% trn 99.               // table name and estimated table size
  28. obj  trn (                    // translation table object
  29.  
  30.   set
  31.  
  32.   // Text Translation Table ─────────────────────────────────────────────
  33.  
  34.   // When text translation is ON, words in the left column are replaced
  35.   // with the phrases in right column as-you-type. To turn translation
  36.   // ON and OFF, select "Translate" from the "Set" menu.
  37.  
  38.   // Words defined with a "*" suffix are translated only when a word
  39.   // delimiter character is entered - the rest are translated when the
  40.   // last character of the word is entered. All table entries must be
  41.   // separated by commas.
  42.  
  43.  
  44.   // Word:            Replace with:
  45.   // ────             ────────────
  46.  
  47.     "adn"             "and"                                            ,
  48.     "asap"            "as soon as possible"                            ,
  49.     "aurora"          "The Aurora Editor"                              ,
  50.     "btw"             "by the way,"                                    ,
  51.     "don;t"           "don't"                                          ,
  52.     "etc"             "et cetera"                                      ,
  53.     "i*"              "I"                                              ,
  54.     "imho"            "In my humble opinion,"                          ,
  55.     "incl"            "include"                                        ,
  56.     "occurence"       "occurrence"                                     ,
  57.     "recieve"         "receive"                                        ,
  58.     "teh"             "the"                                            ,
  59.     "yn"              "your name"                                      ,
  60.  
  61.  
  62.  
  63.  .// Macro Translations ─────────────────────────────────────────────────
  64.  
  65.   // If text translation is ON, these macros are executed when you type
  66.   // the macro name as a word in your text. Note that macros defined in
  67.   // this object cannot call each other (this object is for lookup only).
  68.  
  69.  
  70.   // type the word "bip" (and a space) to beep the PC speaker
  71.   fun  bip* (
  72.     beep 800 100.                     // beep the PC speaker
  73.   ).
  74.  
  75.  
  76.   // type the word "dt" to enter the date and time at the cursor
  77.   fun  dt (
  78.     cwrd %l.                          // find left word ("dt")
  79.     wrddel.                           // delete the word "dt" just entered
  80.     stamp.                            // enter the date/time stamp
  81.   ).
  82.  
  83.  
  84.   // type the word "tx" on a blank line to replace the current line
  85.   // with commonly-used text from a file (replace c:\your.txt with
  86.   // the name of your text file).
  87.  
  88.   fun  tx (
  89.     if (open "c:\your.txt" %i) (      // include the file after the cursor
  90.       ldel.                           // delete current line if successful
  91.     ).
  92.   ).
  93.  
  94.  
  95.   // type the word "ifs" to generate a C-language "if" structure
  96.   // on the current line
  97.  
  98.   fun  ifs (
  99.     cwrd %l.                          // find left word ("ifs")
  100.     wrddel.                           // delete the word "ifs" just entered
  101.     txt "if ( ) {".                   // write "if", parens, and bracket
  102.     lins %a.                          // insert a line with autoindent
  103.     txt "}".                          // write closing bracket
  104.     cmov 3 -1 %r.                     // move cursor between the parens
  105.   ).
  106.  
  107. ).
  108.